program ej09; { Ejemplo 9 de CpcPaChi }
const modo =0, linea1 = 10;
var
  color: byte;
  
begin
  cpcMode(modo);
  color := 2;
  pen(color);
  paper(1);
  locate(10,linea1);
  writeChar( 'a' );
  
  (* Volvemos a escribir en
     la misma linea *)
  pen(4);
  paper(3);
  locate ( 1 ,  linea1 );
  writeChar('d');
end.

